library("unsupervisedMicroarray")
source("./generatePReducersList.R")
source("./generateReducersList.R")
source("./generateRCComputerList.R")
source("./generateNParamAlgList.R")
data(brain)
data(leukemia)
data(carcinoma)
data(colon)

reducers <- genrateReducersListComp()

#score
indO <- new("NInfGainReductionScore")
#final result
wt <- new("WilcoxonHtester")
pTester <- new("PHTestBFrameworkFinalResult",hTester=wt)
#bootstraped set
nboots <-4
rboots <- new("RowBootstrapedSet",list(X=brain$X,Y=brain$Y),nboots)
#sets
setList <-list(
		brain
)

print("start Testing")
runner <-new("HTestRunner",setList=setList, compList=reducers, bootstraperPrototype=rboots,
		finalResultComp=pTester, scoreObj=indO,
		resultsDirectory="./paramRedDimH")
res <- runTest(runner)